home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / misc / PowerInstaller.lha / PowerInstaller / DemoScripts / TextMe.script < prev    next >
Encoding:
Text File  |  1998-09-22  |  654 b   |  39 lines
  1. ;
  2. ; PowerInstaller Script
  3. ;
  4. ; Name:     Text Me
  5. ;
  6. ; Author:   Fabio Rotondo
  7. ;
  8. ; Descr:    The easyest way of getting
  9. ;           user input from a GUI.
  10. ;
  11.  
  12.  
  13. Define GLOBAL Name         "Your Name Here"
  14. Define GLOBAL Surname      "Your Surname Here"
  15. Define GLOBAL EMail        "Your EMail Here"
  16.  
  17. BeginGUI "Text Me - Step 1"
  18.  
  19.   Message "Please, enter this data:"
  20.   Message ""
  21.  
  22.   Text "   Name:" Name $Name
  23.   Text "Surname:" Surname $Surname
  24.   Text " E-Mail:" EMail $EMail
  25.  
  26. EndGUI
  27.  
  28. BeginGUI "Text Me - Step 2"
  29.  
  30.   Message "Your Name is: $Name $Surname"
  31.   Message ""
  32.   Message "Your E-Mail:  $EMail"
  33.  
  34.   Gadgets NOCANCEL NOHELP
  35.  
  36.   Set Gadget_Next "Exit"
  37.  
  38. EndGUI
  39.